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1. JIBSTRACT 

¥TB IS kU lOMODX THAT EXERCISES UP TO FOUR ¥T20"S (DHll LIHESK 
IT IS II^TENDED TO BE I DITI HINDLIMG RCUTIiE USED M CCBJOiCTICIi 
I^ITH TEST 21 OF MAINDEC-"li-DB¥TI (PREVIOUSLY LGIDEC kMd RUiiliG 
in THE ¥T20"S PDP11~05)« DATA IS ENTERED kt EICH SELECTED TUBE 
AUD SET INTO THE CONTIf^UOUS TRANSMIT NCOE^ THIS DITI IS THEN 
RECEIVED km RETRAflSMITTED B¥ THE ¥T20 HOST COMPUTER (THIS 
CEC/Xll KODULEK ALL LINES SELECTED FCR TEST CAN BE ACTI\IAfED AUD 
RUH CONCURRENTLY. ALL TRAMSHIT AND RECEIfE ERRORS ARE REPORIED 
GH THE CONSOLE TTY. NO DATA ERRORS ARE REPORTED B\ THIS MCDULE. 

2. REQUIREMENTS 



HARDWARES AT LEAST ONE ¥T20 COHIiECTED ¥11 I DHll 

STCRAGE2S VTB REQUIRES^ 

1. DECIMAL M0RDS2 4002 

2. OCTAL MORDSI 07642 
3« OCTAL BYTESS 17504 



3« PASS DEFINITION 



CNE PASS OF THE VTAB NODULE CONSISTS CF COKTINUOUSLV RECEIVING 
AND TRANSMITTING THE DATA ENTERED ON ALL SELECTED LINES FOR 
THE PERIOD DEFINED BELOM™ 

EXECUTION TI^^E 



EXECUTION TII^E VARIES MITH THE NUMBER OF JOBS (MODULES) 
ACTIVE^ THE BAUD RATE AND THE NUMBER OF TUBES BEING 
EXERCISED« HONEVER^ THIS MODULE RUNNING ALONE Mill 
TAKE NO MORE THAN 3 MINUTES IslITH 16 TUBES AT 110 BlUD 

5« CONFIGURATION PARAMETERS 



DEFAULT PARAWETERS2 

DVAS160020^ ¥CTS350^ BRls5j- BR2:C^ DVCU 

L0ER-L17BR2IF ANY OF THE DHll LINES IS NOT A 9600 BAUD LINE 
THE fefORD ASSOCIATED WITH THAT LINE MUSI BE MODIFIED 
BEFORE RUNNING 

REQUIRED PARAMETERS: 

DVCS NO OF VT20"S IF GREATER THAN 1 
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DVIDll 1 BIT SET FOR EACH DHll LIKE- ITS FOSITICK SHOULD 
CORROSPOND WITH THE LINE i« E«6« IF DHll LINE 6 
IS USED 'DVIDl* BIT 6 SHOULD BE SET. 

6« DEVICE SETUP 



J\» THE USER mSf LOAD AMD START TEST 21 OF MAIiDEC»ll-DBVTA IN THE VT20 
PDPll/05 IN ORDER FOR THIS MODULE TO EXERCISE. CONSULT THE ABOVE 
DOCUMENT AND COMPLY WITH THE OPERATING INSTRUCTIONS FOR TEST 21 
(SECTION 26)« THIS DEC/Xll MODULE EXPECTS THE USER TO ENTER DATA 
ON EACH SELECTED TUBE AND SET EACH TUBE IN THE CCNTINUOUS 
TRANSMIT MODE. THIS STEP IS TAKEN AFTER THE DEC/Xll EXERCISER 
HAS BEEN STARTED BY THE 'RUN' COMMAND. TYPICAL USER ACTION 
ON EACH SELECTED TUBE iILL BE AS FOLLCiiSS 

KEY FUNCTION 



CTRL E CLEAR SCREEN 

CTRL « GENERATE WORST CASE CHARACTER PATTERN ON TOP OF SCREEN 

CTRL T CONTINUOUS TRANSMIT TO DEC/Xll MODULE (DEC/Xll MCDDIE 

WILL RECEIVE DATA AND TRANSMIT IT BACK TC BOTTOM OF SCREEN) 

NOTES IF THE CHARACTER PATTERN FAILS TO RETURN ON THE 

BOTTOM OF THE SCREEN AFTER CNE 'CTRL T', THEN RETRY AFTER 
'END PASS' IS REPORTED FOR THIS DEC/Xll MODULE (DLll RECEIVERS 
ARE TURNED OFF SECONDS BEFORE *EKD PASS* MSG). IF DATA IS STILL 
NOT RETURNED FROM HOST COMPUTER (DEC/Xll SYSTEM) THEN VERIFY 
THE VT20 HOST COMPUTER BY RUNNING MAINDEC-ll-DZVTE. 

IF LINES WITH BAUD RATES OTHER THAT 9600 ARE TC BE USED^ THEN THE 
VALUE OF THE CORRESPONDING KORD IN THE BAUD RATE TABLE (16 
WORDS STARTING AT LOG 'LOBR') MUST BE MODIFIED REFER TO TliE 
PDP-11 PERIPHERALS AND INTERFACING HANDBOOK FOR THE EXACT 
VALUES NEEDED 



8. OPERATOR OPTIONS 



A. THE USER CAN MODIFY (VTA 14) "DVIDl" TC SELECI OR 
DESELECT INDIVIDUAL VT20'S. THIS MODULE IS QUITE 

ABLE TO HANDLE VT20'S THAT DO NOT HAPPEN TC HIVE ADJACENT 
DHll LINES. 

B. THE USER CAN USE THE "MOD" COMMAND TO DUMP THE TABLES 
OR BUFFERS DESCRIBED IN 7.2 TO OBTAIN MORE DETAILED 
ERROR INFORMATION. 



9. ERROR PRINTOUTS 
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SEQ 0CC4 



9,1 



ERROR FORMAT 



RECEIVE 



CSRA = CSR ADDRESS 

CSRC = MRC WORD AS FOLLOlSl 

PRIMTED OUT LABELED AS "STATC" IS THE lEXT RECIEVED CHIRICTER 



THE 

BIT _ 

BIT 14 = 
BIT 13 = 
PIT 12 = 
BIT 11-8 = 
BIT 7-0 = 

I^TTH SONE ERRORS SUCH AS ««N0 DHll LIHES REI^IIN SELECTED" 
THE COHTEHTS OF THE DHll REGISTERS ARE IRRELEVENT^ 
IN SUCH CASES THEY ARE PRIMTED AJiY^AYS« 



DATA PRESENT 
OVERRUN 
FRAMING 
PARITY 
LINE # 

DATA RECEIVED 



9«2 ERROR FORMAT - TRANSMIT 

CSRA = CSR ADDRESS 

CSRC = CSR CONTENTS AS FOLLOI^SS 

PIT 7 = XNITR READY 

BIT 6 = XMITR INTERRUPT ENABLED 



188 



• LIST SEQi^BIN^TOC 
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000000' 
000000' 
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;SQME DBF 
<VTBB_>^.1 



HQDMAM: 
xflag: 



IQHODX 

MODULE ISOOOO, 

.TITLE VTBB DL 

DDXCOM VERSION 



l8JiJJi|0.5 



fc/Xll SVStp ixERCISER I'ODOti 
N 6 23-MAY-7e 



;BR LEVEL 5, OF TO 16 DEVICES 



/VTBB / ^MODULE 
OPEM 



PRTY540 
PRTY40 



STAT! 

ipoiHf : 
icouHf: 



QP|N 



?USED TO KEEP TRACK OF WBOFF USAGE 

;1ST DEVICE ADDR. 

list DEVICE VECTCR« 

hST BR LEVEL. 

5280 BR LEVEL, 

;DiVICE INDICATOR 1. 

;SliITCH REGISTER 1 

;SSIfCH REGIStfR 2 

;SBITCH BEGiSTER 5 

II lil*S*iii*il*S ft* 

;S1ATUS HORD. 



STAdK 



START ADO 



PoiiiEB 



PISS CJU| 

ifcc^lS IggiflifEpTigp 



flOHS PEF PASSsl 



nss IS 



SVR3: 
SVR4: 



OPEN 
OPEN 



AVE TCTJL SOFT ERRORS 
_AVE TCTAL HARD ERRORS 
,__C TO SAVE SOFT ERRORS PER PASS 
;LOC TO SAVE HARD ERRORS PER PISS 
;1 OF SYS ERFCKS ACCUMULATED 
;flCLDS RANDON k MMf RAND MACRC IS CALLED 
;FESERVED FOB SOKITOR USE 
^RESERVED FOR I'ONITOR USE 
;BESERVED FOR WOHITCR USE 
;LQC TO SAVE RC. 
;ICC TO SAVE r|- 
;LOC TO SAVE R2. 
;LCC TO SAVE R3. 
;LCC TO SAVE R4. 
$LCC TO SAVE R5. 
JLOC TO SAVE R6. 
;IEDR DF CURRENT CSB- 
;ACDR OF GOOD DATA, OR 
;CCNTENTS OF CSR. 
;ICDR OF BAD DATA, OR 



}SUUH Ur HAU UilXA/ UK 

;STITUS BEG COiTENTS- 
;TYPE OF ERRCR 
;PPECTEC DATA. 
;ICTUAL DATA. 

;RESTART ADDRESS AFTER END OF 
?SCRDS TO MEKORY PER ITERATION 



;BCBDS FROH I'El 

}S OF IHIERROPT^ . 

SPCDOLE IDENTIFICATION HUWBEB 
fl^CDULE STACK STARTS HERE. 



BY PER ITERATICK 
ITERA 



S PER 
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# 




283 



.._ 00630- 
279 00030?' 

mm- 

000312' 
000314' 

84 000316' 

85 000320' 

86 000322' 

87 000324' 

88 000326' 

n mm- 
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.HLIS? 
.»ORD 
.LIST 

.BHDR 

POINTERS AMD 



5S0NE 
SELCNT 

SAVRO: 

MAIflMS 

RELOCI 

SVIO: 

SVTI: 

XCNTI 

VIRTADS 

PHVSAD: 

ESTAD! 

DUHCNT: 

MAIf IMS 

temp: 

TEMPO! 
TEMPI: 
COUHTlS 



INfSliS 000000 
FATERRS 000000 



VARIABLES km CCHSTAHTS UNIGDE TO 
;P|CGR|M^SE|S_|HIS L 



U CF VT20'S SELECTED 

iPlACE TC SfUFF BO SHILE SERVICIKG INTERRUPTS 
JOSED AS A COUNTER FOR THE INTERRUPT BAIT LOOP 




}M BELOCITICIi COUNT FOR INDEX FEGISTERS IF NEEDED 

;CCDNT FOR # OF XFERS TO DO EACH PASS 

^VIRTUAL ADDRESS 

^PHYSICAL ADDRESS 

^EXTENDED ADERESS BITS 

;J OF DEVICES FINISHED 

;fll»ER COUNT 

?TIMPQRARY LCCATION 

;CEHERAL PURPOSE TEMPORARY STCBAGE 

JGEHERAL PURPOSE TEMPORARY STOBAGE 

JSIT BY BY USER IT CONFIGURATICK TIME 

;TC A 3 IF LINES OF 1200 BAUD CR LESS ARE USED 

;SIITCHs=! IF HE SHOULD RETURN FBCM INTERRUPT 

ISERVICE USIING AN 'RTI' INSTRUCTION 

;Sl!lTCH=l TO SIGNAL A FATAL ERBGR. 

;PCINTS TO LAST liOfiD SERVICED FBCM ERROR QUEUE 

;PCINTS TO LAST MORE ENTERED IK ERROR QUEUE 



JPOIHTS 
^POINTS 
JPCINTS 



?PGIHTS 10 OSE OF THE 16 BUFFERS 
;PCINTS TO 1 OF THE 16 BUFFERS 
;PGINTS TO 1 OF THE 16 BUFFERS 
JPCINTS TO OWE OF THE 16 BUFFERS 
10 ONE OF THE 16 BUFFERS 
TO ONE OF THE 16 BUFFERS 

. TC ONE OF THE 16 BUFFERS 

;POINTS TC ONE OF THE 16 BUFFERS 
;POINTS IG ONE OF THE 16 BUFFERS 
JPOIHTS TO ONE OF THE 16 BUFFERS 
^POINTS TC ONE OF THE 16 BUFFERS 
;POINTS TO ONE OF THE 16 BUFFERS 
^POINTS TO ONE OF THE 16 BUFFERS 
^POINTS TO ONE OF THE ' ' 

JPOI 

aOBDS IS SETUP BY THIS MODULE TC POINT TC A DHll 

;POIH|S TO THE SYSTEI* CONTROL REGISTER 

;PCINTS TC THE NEXT CHARACTER RECEIVED REGISTER 

;POINTS TC THE LINE FARAJ'ETER REGISTER 

;POI»TS TO THE CDRREKT ADDRESS REGISTER 

JPOINTS TO THE BYTE COUNT REGISTER 

IpQINTS TC THE BUFFEfi ACTIVE REGISTEB 

IPOINTS tC THE BREAK CCNTRCL REGISTER 

;POINTS TC THE SILO STATUS BEGISTER 



16 BUFFERS 
16 BUFFERS 
16 BUFFERS 



I 
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SEQ OCO? 




3f HBLE 

Losm: 
Lisu: 

L2SMS 
Lips 

Ml 

lush: 
2SH: 

Ish: 
4SH: 

5s«: 



OF BtirrSR POIifERS FOR DHl 

^ Imiim loiiiii 



iuFlii^POIHfEB 



;BQFFER FOIHfgS 

BUFFER POIM'- 
IBUFFER POIH 



6Sti: 

ISH I 




RSfES FOR DHil LIMES 



}EhCB OF 
;FOR ' - 



356 000500 




I OF THE FOLLOIIMG 16 MOROS COM 
1 DHll LIME, fHE HIGH ORDER M' 
THE LDH ORDER B¥fE COUTIIMS fH 



MOROS COMfllMS fHE ERR 

iPLmi^cSS" 

MODE 

UiSELLECfEO OR DROPPED 
ACTIVE MODE 
DOME RECIEflliG 

jgSROR COUIiT/L 
EBgOR CQUMf/L 
~" "8f ' 




;DEF10Lf 
iDEFIULf 



!R IND STATUS INFORMIflON 
I CF ERRORS IH THIT LINE 
IT STATUS 



lERRQR CQU8i/L 
SiSBQR COUST/L 
;£RROR CQUBf/L 
lERBCR CODHT/L 
lESRQR CQDHT/L 
Sesrqr COUHT/L 
?ERROR CODNf/L 



;iEROR COUSt/L_ _ 
TERROR COUat/LIiE 



STATUS FOR 
STATUS FOR 
StATUS FOR 
STATUS FOR 
STATUS FOR 
STATUS FOR 
STATUS FOR 
STATUS FOR 
STATUS FOR 
STATUS FOR 
STATUS FOR 



DHll LIH 

m m 
m ill 

Dfi]} tin 

DUl! LIN 



-HE 
INE 

-.IHE 

mi 

IliE 
"JE 
_:fiE 
LIME 
DRll LIHE 
DHll LIBE 
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in 888888 

359 000506' 000000 

I? 888y:8W 




CDU§T/LIHE STATUS FL.. 
>EKRCH COngf/LIMi STATUS FOR 



FOR 
FOR 



lERROR COUif/LIME STATUS FOR 

fESRCR COUMT/LIHE STATU, 

;EfiRCR COUMT/LIKE STATU; 



DHll 
DHll 
DHll 



CHARACTER COUMT LOCITIO 



^CHARACTER 
JCHARACTIR 

^CHARACTER 
;CHARACTER COOMT 
iCHIRACfgR 
^CHARACTER 
;CHARACTER 
;CHARACTER 
;CfilRAClER 
jCHARACfER 
^CHARACTER 
ICHARACTER 
ICBIRACTER 



ES 
FOR 
FOR 
FOR 

I lU 

T FOR 
-T FOR _ 

II FOR D 
if FOR 



DHl 

dhL — -- 
DHll LINE 



uaT 

BT 



FOR 
FOR 
FOR 
FOR 
FOR 
FOB 
FOR 
FOB 
FOR 
FOR 



If, 

lif Hi 

"11 LINE 
11 LINE 
11 LINE 



^. E 
INE 
_INE 
LINE 
II LIWE 

_ H till 

DHll LINE 
DHll LINE 
DHll LINE 



LI^E 
LINE 
LINE 





im m mi imi 

00646" 104410 000000' 

MW m m ^^^^^ 

00672* 006167 177342 



000712' 005467 177322 
000716' 005000 



;DBTERHIHE if any OH'S ARE SELECTED^ IF SO SETUP DE¥ICE REGISTER 

JADDRESSES, INTERRUPT VECTORS^ AiD START THE 

;M0DULE PROCESSING-,. IF HOT, DROP THE MODULE FROM THE RUN 



ADDR 



START: M0¥ 
MQ? 
MOV 
MOV 
M0¥ 

T§T DVlfil 
BNE NODROP 
;ME END DP AT 'DROP' IF NO ¥T20 
HILL HOM DROP THIS MODULE 
MOV ADDR4XOO 



«IHTR 

|004400«g 
i4£MAITii 
SPOINT^SP 



;4 INTERRUPTS / ITERATION 
;2C iORDS TO MEM/ITIRATIQN 
;2C HORDS FUm MEM/ITERAf lOM 
JlilT THE DHll 

;PAKE A LONG ISf PASS TO ALLOi FOR STARTING VT20S 



IME HI 
DROP: 



|S||gP THE iCppL|;_STACi_ 
lAiiY S_ _ 

IS SELECTiD FOR TEST (DVID1=0) 



FOR SEtLBCTBDfT20'S 
ELLBCfED? 



ADDR4X., 
MOV i4OOO£§X0O 
MSGIi$#BEGIN,ERRMS 
ENDS^BEGIM 



;SE10P ADDRESS OF _ 

;gD. PREVENT DHll pfERRUPTS 

IISCII MESSAGE CILL af— 

;DROP THIS MODULE 



THE DHll COifROL/STATUS REG 
"""""RRuPTS 

TH COMMON HEADER 



;GET BAUD RATI 
;| ROUGH GUESS 



INFO 



;THIS is THE RESTART ROUTINE, If RESTARTS IM TRANSMIT MODE, ALL LINES THAT 
JFINISHED RECIEVIMG Oi THE LIST PISS« ALL OTHER LINES IF igsCRS 

HESfRT: MOVB L0BR*1,SCHT ~— -~— 

BIC |l57774,XCNT 

ROL 
ROL 
ROL 
ROL 

NBG 

NKfFER: CLR 



1177774,1 
XCNT 
XCHT 
XCNT 

m 



;A1 HOi MAMY XFERS 8E SHOULD DC PER PASS 
ImoLT XCNT BY 16 
J|C GET THE NUMBER 
;0F TRANSFERS fO 00 
lEICH PASS 
IMIKE IT MEGIflVE 
iSfiRT MITH LfiB 



t 
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0G454" 000004 
000003 000454' 




J- \m 

mm- 
mm 

000040 

177134 



4000 177202 

7106 177174 
00004 
01060 



177162 
177132 



104407 000000' 

mm mm' 177036 

177066 176630 



2$: 

3S2 



4SS 

80DR0PS 




IVE MODE 
MEM «BIR" REGISTER 



SRE6QLIR PISS 1I»E00T 

llSIT ^ORD ME iIRE GOING fO SENC 10 X12 
;CLi^R out COUiT FOR # OF LIHES 

ill f i3^i:iii;yi^:'r?5 

>S£T THE C BIT ImD 

}GthB THE Llig I 
^DIVIDE IT B¥2 fO MIKE IT HEAL 

Icier cooiif 

li 

;GEf VIRf'OiiL' iDDfiESS'OF" fHE'BQff ER 

;GET physical address FROM 16~BIT VIRTIO 
;CLEAR ALL BOT THE EXTEMD BITS 
ISET ADDRESS EXTEHD BITS IM STATUS REG 
;|ETap CURREaf ADDRESS FOR THIS LINE 
;ABD REIUIT ITS CHARACTER CQDHT 
;GC SEE IF HE RA9E CHECKED ILL LINES ¥ET 
JCLEAR C BIT TO 

jNAKE SORE THAT THIS LINES »BAF" REGISTER BIT IS CLEAR 
IGQ ON TO THE NEXT LINE 
;NJ¥E ME DONE ALL LIMES YET? 
5lf MOT. GO CO ANOTHER 

;IlL DONE* ARE ANY LINES STILL ACTIYE? 
;IF SO, 60 START E¥. OP XNITIN" 
;ac LIMES REGAIN. STOP TH" ~" 
} "" 

j 



UIVIUC XT all TU P.RfSt. 

,!flKE SURE ONLY YH| Lia_ ^ ^ 
IgUT IT INTO THE STATUS RgGf 
}nm GET THE CHARACTER COUNT 
>0SE ITS 2'S COMPLpENT 

Jlig SETUP THE B|TE COUN| REGIgTER aiTH IT 



- THE DHll 

;ASCII NESSACE CALL NITH COMI<ON 
ABD DROP THIS HODDLE 
-ET THE BAR REGISTER 
. D aAIT FOR SOUTHING TO HAPPEIi 
IDC A BUNCH CF INITIALIZATION 



IS THE MAP PROGRAM LOO. 
IMG |S DgME.HBRl_EXCEPT_fO_CDiTIMUODSLY_TEST TO SEE IF ENCOGH TIME HAS PASSED 



» 

;FOR AM END OF PASS^ CHECK FOR ERRORS, 
;PTERRUPT SERVICE RQOTIHE TO CLEIH " 
I IN if^ BUT SOT EHOUGH STUFF fC ClOS 



AND CALL THE 
OUT THE SILO IN CASE IT HAS STUFF 
E In INTERRUPT 



hain: 

HLOOP: 

BRME: 

tstre: 



881 

HOY 

SSI 



BREAKS, BEGIN 

BREAK* 

CMP 
BEQ 
HOY 
HOY 



IO3O106^iKQO 
MTSR? 



<SP) 



-EGIN 
ERPT1#ERPT2 

lipTlipRl 
XOO^CSRI 



;SET SILO TO INTERRUPT CN 40(0CTAL) CHARS 
;l«AKE SURE THAT THE STACK POINTER IS RIGHT 
)E8IBLE INTEPRUPTS 
;PCT FAKf^PS ONTO STICK 

^^ME JUST HAD AN INTERRUPT 



lAliD A FAKE PC 
IPRETEHD THAI 



;fEMPORARY RETURN 10 MONITOR. 
;1HEN CQNTINDE AT NEXT INSTRUCTION. 
?ABY RECEIYE ERRORS? 
?IF NOT GO CHECK FOR FATAL ERRCRS 

;IF SO, HAKE THE ERROR QUEUE PCINTER MORE ACCESSABLE 
iSEfOP THE CONTROL REG ADDRESS FOR PRINTING 
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001250 
00i|54 
001260 
001266 

001274 



001340 

20JI44 



001440 
001444 



illlll l||oii' 



112767 

104405 



000017 
000000- 



mil "^^^^ 

012767 016702' 

Iflfl mm' 

00576 
0536 

11 



017464* 
176612 

000000 



176744 
176740 




176704 
176656 
176672 

C30100 176744 
000454' 

000454' 000004 



000 000454" 

III f il 

-01070 
001064 



000000' 002534' 



mm- mm- 
mnr- mm msr mar 

001474* 104405 000000' 000000 

001502- 000434 

001504^ 105760 000455' 
001510' C01431 



01516' oosSie 

m- mm 



000455- 
001006 



I40Y 
isGNS 



MOV 
CMP 
BNE 
HOY 
MOY 
fSf 
BHE 
TST 
BEQ 
IMC 



DEC 
BNE 

ALDQNES BIC 
CLR 



(R1>*,ACSR 
CRlH,ASf AT 
,BEGIN,ERRRE 

Aftftf lie liill§SrA«t&Si 

BEGIM^MULL 
Rl^ERPTl 

|ERQD£U,ERP?1 



iERQUe0,SRPf2 
FATERR 
ERRPt 



ISETOP THE CONTROL REG CONTENTS FOR PRINTING 
ISETUP THE STATUS REG CONTENTS FOR PRINTING 
SaSCII MESSAGE CALL yiTH COMMON HEADER 
iRECEIYER ERROR 

fRECEIYE ERRCR - BON FATAL 

;OPOATE THE ERROR gUEUE POINTEF 
JIS THE ERROR gUEUE EMPTY? 

IIF IT IS NOT EMPTY, IGNORE IT FOR A MOMENT 
;ERROR 90EUE IS EMPTY. REINITIALIZE THE 
lERBOR QUEUE POINTERS 

..S j^^p 



1$: 



TSTB 
BEQ 
CHPB 
BEQ 
HOY 
MOV 
MQY 
HOY 
MOV 




;RAYE ME HAD ANY FATAL ERRORS? 
>IF S0« GO REPORT IT IHD DROP THIS MODULE 
;HIVE ALL ACTIVE LINES FINISHED RECIEYING? 
;IF SO GO CLEAN OP AND END THIS PASS 
^N0« TICK GOES THE BAIT TIMER 

IRIVE THOSE DEVICES HAD ENOUGH TIME TO FINISH? 
;eiD ENOUGH TII^E TO FINNISH 
;lf NOT. 

SEHOUGN TINE! PREVENT FURTHER EHll INTERRUPTS 
ISETOP A LINE INDEX REGISTER TC 
?fIND OUT IF THE LINE IS SELECTED 
;IF NOT GO TEST FOR ERRORS ON IT 
ni IT IS CHECK THAT IT HAS FINISHED RECIEYING 
;lf IT DID AT LEAST 1 TRANSFER, OONT PRINT AN ERROR 
;DIDNT FINISH. SET THE LINE TO CROPPED MODE 



llMP6jAiTAT 
ROgNUHBAl 



;SiTUP FOR PRINTING THE ADRESS CF THE CONTROL/STATUS REG 

;SiTUP FOR PRINTING T " 

?SETUP TC PRINT COHTE 



JF THE 
NEXT CH 



CONTROL/STATUS 
IR RECIEVED REG 



;CCNVERT NUMBAl TO ASCII AND 

-STORE AT HESNRO 



2$ I 



OTQA$, BEGIN, NUKBA1,MESNM0 
<*****«**««******«******** «**««*«*«««*«*«*************«« ******* 

MSGH$, BEGIN, ERROR lASCII MESSAGE CALL MITH COMMO!i HEADER 

HRDERS,BEGIN,NULL ; I DHll LINE HUNG 

BR 3$ JGO TRY THE MEM LINE FOR ERRORS 

TSTB 
BEQ 
MOV 
ROR 
CLR 
MQVB 



;ARY ERRCRS CN THIS UNSELECTED LINE? 



LQEC4l(0).(S 

lEMmlL 



;IF NOT TRY THE NEXT LINE 
;P0T THE LINE | INDEX ONTO . _ 
;DIVIDE BY 2 TO GET THE LINE « 
;CLEAR OUT THE FIRST WORD ON THE STACK 



THE STACK 
NE ■■ 



001530- 104420 000000' 002536* 



L0EC+1(0) 

Iff)"" 

-(SP) 

SP) ;SC THAT HE CAN PUT THE # OF ERRCRS INTO LOV BYTE 

II A ««««««« ft«« «««««« «jk 

;CCNVERT NUMBA2 TO ASCII AND 
ISTORE AT HESNFO 
OTOA$,BEGIN,NUMBA2,MESNM0 



¥TBB DEC/Xll SYStEH EKERCISER HODOLS 
X¥TBB0,P11 12-OCT-78 12!2§ 

III 001536' 017405' 

1 lii 

531 001550' 011667 000764 



104420 000000' 002540' 
-17414.' 
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562 

ip 



573 
574 



m 

579 



ill lllW 



176426 
177076 
104413 COOOOO' 



i-mm mm mn 

I- Mil ill- M- 

001670* 104405 000000' 000000 
001676- 104410 000000' 



SEQ 0011 



TST (SP)* ;CtEiiH OP STSCK 

III tr ihw/iVF^^'^^^^" 

HOV CSPS^HDNBia |S19E IT 



0fOA$,BEGI»,iDi;BI3,HESMH 



HVERf MUMBI3 fO ISCII IND 

ORE kt msmi 



3S! 



4S 



ST 

.•£_... ;ASCII message CALL SlfH COHWOii HEADER 

— • THE HE- — " 



(SP)^ 
MiGMS,BEGPj - 



ADD 
CMP 
BRE 
IMC 

EMDIf$,BEGIM 



If, 

XCHT 



}l¥ io|.jg.?R¥_AagfBER_ 



CNE ENOUGH KFERS THISS PASS? 
^ SO. GO EBD THE PASS 

Nof, GO START AROTHER KFER 



;SIGNAL END Of ITERA|ION. 
fpgaifOR SHALL TEST EHD Of PA 

IFATAL ERROR MILL BRISG OS HERI<s-^JHlRE°MB^illoRT IT ASD DROP 



STRIS MODULE 
ERRPTJ 



m 

MOV 



III IS AH EgROR. I^^JP COMTROL REG ADDR 

GISTER DATA 
;PREIEMT ART MORE DBll I.HTERBOPTS 
MSGH$,BEei§,E|isp 3ASCII MESSAGE CALL HIT "~ 



^rCSRA 

0,ACSR 

S«*SfAT 



p8iiiiiifiiiiiiL.*.*.jiiiiiiiJiiii.rJiisIiiiii^^^ 

iND$, BEGIN ; 



SILO 



;THIS is THE RECEIVER INTERRUPT SIBVICE ROUTINE 

IFIRST HE TEST TO SEE IF IT MAS EgALLY A RECEIVER INTERRUPT OF IF IT 

;HAS a SILO.0yERFLgM_I«TERRgPT2 



;THE SHITCH hill be examined Ili THE 'MAIN' PROGRAM LOOP AND PROPER AC 



;»ILL BE TAKEN IF IT IS FOUND SET 

«„„ ™«^«.,«» REILLI^A R" 



IRE IS VALID 
IRD TAKEM FRO 



Ithe hord Taken 

■anv ARE 

THE 

;iHICH*SIGMIFIES 



ACTIONS 
IS TAKEN 



BIT15) SET, IF IT IS NOT SET A 'RTI 



IS PERFORMED. 

. .... PROPER OUTPUT BOFPER- 

ECKBD FOR EfiRQR BITS, AND IF 



6-tvW 



, , ^RiaHf 

JIS ANY CASE THE CHARACTER iS THEM CHECKED TC SEE IF IT IS A '14' CODE 



VTBB DEC/Xll SYSTEM EXERCISER MODULE 
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Is! 



001702 
001710 



001734 
001736 



002170 



turn 



040000 176424 

Mill MM 



mm 



ICODE '14' 
SFROM THE ; 
SlF THIS Rl 
IMTSRV! BI! 

BEQ 

MOV 

Rfl 



ROUTINE IS ENTERED, THE *XMIT- 

0R"M0f^"fHE~PRbGHAM"LCCPS BACK AND TAKES ANOTHER CHIfi 

OTINE USES R0« If RESTORES IT AFTERHORO 

-''40000,1X00 yCHECK FOR RECEIVER ERRORS 

IIF ITS J RECEIVER INTERRUPT 
-"ATAL ERROR INTERROPTI!! STOP f 
— - FATAL EBROi SBITr" — " 



ROUTINE 
ICTER 



RIHT 



>IMTSM 



1! THE 



ISETUP FOR 
flETORM 



^BROP SBIfCH SO S 
4 CHiRS POLLED OFF TH 



P„DHJ1 



KNOi TO REP0S7 IT 
SILO 



COOOOO' 001744' 



mil 

mnr 
mm- 

176214 

lilt 



mm 

176264 



1$: 



PIRQ$,BEGIM,XXXX 

MO? 
MOV 
BPL 

If 

BIC 

TST 
BNE 



RO4-SVR0 

P0,IHTSH 



} QUEUE UP TO COMTINDE AT XXXX AND RTI 



;l^0ST SAVE ROa IT MAY BELONG TC 
;SERVICE 20 CHARS 
SgET FIRST CRIR IN THE SILO 

|IF SILO IS EMPTY, QUIT TAKING STUFF FROM IT 
SgET ERROR BITS AND LINE § 
;I^|kE line g MORE ACCESSABLE 
>lf NOT MOLflPLY THE LIME I *2 
;AiD ISOLATE THE LISE # IN BITS 
;IS THE LINE SELECTED? 
5IF IT IS 
MO" - 




000354' RCVMOD: 



XITS, BEGIN 

TEMPr 

LOSHI 



i% 



1-4 

AN ERRORo INC ERROR COUNT 



MOVB 
INC 

BEG 



LOSM(O) 



;IF NOT GO 
;YES, DON| 

;POT THE^CH 
-BOMP BDFFE 



lACK 



DO ANOTHER 



ALREADY. RESTORE RC 
TO MONITOR- MODULE 



il iHTO"fHE"PROPER 

iliRp* 



WAIT FOR INTERRUPT^ 
FFER 



ERpfJjiiJeoFL 



ADD 1 TO . _ 
— ERROR eOEUE 



175702 
756 2' 

ioooJo' 



100000 176132 



CMl 
BME 
MOV 
MOV 
ADD 
MOV 
ADD 
CMPB 
BEQ 
DEC 
BNE 
MOV 

EXITS, BEGIN 
MOV SVRO^RO 
EXITS#BEGIH 
;THIS ROUTINE SERVICES THANSMITER 
llT DOES ABSOLUTLY SQTHIMG III 

lib: BIC iiooooo^ixoo m mm meed another 

RTI IBETORS 



ACTER COUNT BY *1 

OR THAT LINE 



THE EfiROR COUNT 
ULL? 



1$: 



HOERRI 



RETRN: 



!ERQ0E0,ERPT2 
iMP0£§ERPT2 

IHTSN 
YYYY „ 
SVRO,R0 



;ERR0RS? 

IIP iof. 

;fES ITS FULL. RESET IT 
;SAVE CONTEHTS OF CONTROL REG 
^UPDATE ERROR QUEUE PgiMtER 

;sjve contehis of status reg 
;ofdate error gdeue pointer 
icheck for an end of paragraph c 

;if not 60 back and do another 
;y£s, done 4 already. restore rc 
;bxit to monitor, module 
;rest0re ro 

;exif to mobitor. module 
interrupts 



HAR 
MODE 



BAIT FOR INTERRUPT^ 
SAIT FOR INTERRUPT^ 



SVSIEH EXERCISER HODOLE 
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mw im mil- 

ill-: 11! ^^i^^' 

002362' 012767 016702* 175700 

002370' 012767 016702* 175674 



2406' 016701 171 
2412* 005000 



nil 



SEQ 0013 



SUB 

Hi 



EXITS, BEGIN 



EMERED SHE! I Llii FIHISHIS RECIEVIHG 
i4,£QEC(01 ?siT LISE fO ^iRECIElE DOUE'* MOBS 

LOCC(0)/LOSM(0) ;SESET THE HUES BUFFER PQIMfEB 
DOMCMf SjlSC tUlL? OP 1 MORE FISISHED DEVICE 

IlifSM $20 CHARS PULLED VEI? 

mv lli got GO BSCK IMD DO IHOfHER 

STR0,R0 ;¥ES, OOiB 4 ^LREADV. RBSfORE RO 



lEXIt to MC|jIfOR« f^ODOLE MSIT FOR IMTESROPf. 



^11 



HH UUT Tn& r^T^L. CKMyH SWITCH 

UP PgilifERS fO JILL C| THE DHU REGISTERS 
SES EACH DHll RBGlSflR MIfH I 'tSf ' ISSfRUCTIOH IC 
IS REILLV THERE. 



JTHEH IT 
JTHEB IT 
SETUP: 



.MITllLIZES THE ERROR 
ASSIGHS BUFFER POINTER 
FATERR 
ADDR^RO 



CLR 
MOV 



;THIS IS THE INITIALIZATION ROUTINE. 
;F1RST IT CLEARS OUT THE FATAL ERRCR SWITCH 

mil fi mhii-"" " 

Shake sure it is 

THEN IT accesses EACH DHll REGISTER USING A 'TST* liSTRUCTIOH SO 
E REGISTER DOBS iOT BSIST OR HIS I^AJOH PROBLEMS, HE FIRD 001 
EN IT SETS DP DHll VECTORS 

INITIALIZES THE ERROR QOEOE POINTERS 

^— - — I fc JILL SELECTED LINES 

;IiIT FATAL ERROR SNITCH = NO FATAL ERRORS 
JNAKE THE DEVICE REGISTER ADDRESS EASY TO ACCESS 

UP ADDRESS OF THE SYSTEM CONTROL REGISTER 

P IF IT DOES NOT EXIST 
TUP ADDRESS OF NEXT CHARACTER RECEIVED REGISTE 
P IF IT DOES NOT EXIST 
UP ADDRESS OF LIRE PARAMETER REGISTER 
P IF IT DOES NOT EXIST 

UP ADDRESS OF CURRENT ADDRESS REGISTER 

UP^ADDHEis^OF^BiTi^JoUNT REGISTER 
IP IF IT DOES NOT EXIST 
^TUP ADDRESS OF BUFFER ACTIVE REGISTER 
. -SAP IF IT DOES NOT EXIST 
;SETUP ADDRESS OF BREAK CONTROL REGISTER 
;TFAP if IT DDES NOT EXIST 

;SETUP THE ADDRESS OF THE SILO STATUS REGISTER 
JTIaP if it DOES NOT EXIST 
BRDPT VECTORS. THERE ARE 2 OF THEM« ONE 



¥0V 
ST 
M0| 
TST 
MOV 
fST 

MOV 

TSf 



4 

ROfl 

ml 



T§'. 
I^OV 
TST 
MO? 

;NOH setSPdhii iw 

;F0R RECEIVER INTE! 
MOV 

HOV 
MQVB 
CLRB 
MOV 



(12 
[14 



tl6 



m 
m 
III 
m 
HI 
III 



THAT IF 
RIGHT AHAY 



PTS# AND 

ECTOR#RQ 



FOR TRANSMITER INTERRUPTS 

;eET THE VECTOR ADDRESS 



;HOV SETUP ERROR QUEUE POINTERS 
MOV |ERQ0E0,ERPT1 



/bE 1 inn AUUKCOS 

;PQINT VECTOR TO RECEIVER INTERRUPT SERVICE 

;SET PRIORITY LEVEL FOR THE INTERRUPT ROUTINE 

;SET RO TO AN EVEN ADDRESS 

;POIHT VECTOR AT TRANSMITER SERVICE ROUTINE 
;PRIORITY LEVEL FOR THE TRANSMITER INTERRUPT ROUTINE 

>SET RO TO AN EVEN ADDRESS 



MOV 



#ERQUEU,ERPT2 



;SET THE "NHER 



WE'VE PUT STUFF" ERROR QUEUE 

;PCINTER TO THE BE6INING OF THE QUEUE AREA 
;80W ASSIGN BUFFER POINTERS TO SELECTED LINES (DONE ONLY ONCE AT THE BEGINING) 
CLR SELCNT ;lllT DEVICE SELECT COUNT TO BEFORE COUNTING 

CLR DUNCNT ;AID OF COURSE NONE NAVE FINISHED YET 

MOf D¥ID1,R1 ;^IKE BITMAP OF SELECTED VT20 LINES MORE ACCESSABLE 

CLR RO JiaiT FOR 16 PCSIBLI LINES 



VTBB DEC/Xll 
XVTBBO.Pll 



SYSTEM EXERCISER MODULE 
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107 



002414' 
-02420' 



060 Jo0454' 



002542 - 

005572" " 

III"" 





o_ _ 

0171 



040 
000040 




1$: 



2S: 



CLR 

CLR 

ROR 

BCC 

MOV 

BIC 

DEC 

MOP 

BISB 

MOV 

BIS 

CLR 

MOV 

INC 

ADD 

INC 

CMP 

BNE 

RTS 



NUMBAl: .HORD 
NUMBA2: .WORD 
NUMB A3: .WORD 

VTBFO 
VTBF" 

vtbf: 
vtbf: 

VTBF 
VTBF' 



TEMPO 
LOEC(O) 

Rl 

IfLISTC 



117, exo 

DUMCNT 
L0BR?8 

tmi 

u 



}IM1 THE LliE # 

;ASSUME LINE IS UNSELECTED UNTIL PROVEN OTRERWISE 
;P0T A BIT INTO THE C-BIT 
SIS THE LINE TO BE USED ? 

),Losw(o5 ;yes- issign a buffer fcinter to that line 

;CLEAR OUT LINE SELECTION BITS 
;ADD 1 TO COUNT OF ACTIVE DEVICES 



XOO 

§K04 



A 

#17 



?Si? LIME^SELECTIOR BITS FOR TBIS LIME 
;SETUP BAUD riATES FOR THIS LINE 
;PARITY-FULL DUPLEX-8 BIT 

"HES CHARACTER COUNT 



;CLEAR OUT THIS LINE 
;START OUT THE LINE 
lUPDATE COUNT OF SEL 



i_8iCIE|E.f!5DE 



SEILBCTED VT2C-- 

;GC on to THE NEXT LINE 
;iEXT LINE 

JCBECKED ALL LINES FOR SELECTICM YET ? 
;IF NOT, 60 BACK AND CHECK THE NEXT ONE 

;rIturh 




;BDFFER 
;EUFFER 

;B0FFER 
;BUFFER 
;BUFFER 
;BUFFER 
^BUFFER 
IBUFFER 
;BUFFBR 
;BUFFER 
;EUFFER 
JBI'FFER 
;B0FFER 
;BUFFBR 
;RECEIV 
;ERRCR 



SPACE FOR 

SPACE FOR 

SPACE FOR 

SPACE FOR 

SPACE FOR 

SPACE FOR 

SPACE FOR 

SPACE FOR 

SPACE FOR 

SPACE FOR 

SPACE FOP 

SPACE FOR 

SPICE FOR 

SPACE FOR 

SPACE FOR 

SPACE FOR 



ST SELLECTEB 
ID SELECTED 
Rp SELLECTE 
TH SELLECTE^ 
A SELLECTED E 
SELLECTED C 
SELLECTED C 
SELLECTED C 
SELLECTED C 
SELLECTED 
SELLECTED C 
SBLLECTBO C 



DHll LINE 
EHll LINE 

LINE 

LINE 



fill 

! 



SELLECTE 
SELLECTiu 
SELLECTED 
SELLECTED 



ER ERROR 60EUE SPACE 
QUEUE OVERFLCW BOUNDARY 



1 LINE 
^' LINE 
LINE 
_ LINE 
1 LINE 
- LINE 
LINE 
LINE 



!1 



/FOLLOWING IS THE TEXT FOR ALL ASCII ERROR MESSAGES 

MESHRl «ISCIZ /MO LINES REI«AIH ICflVE/ 



HESNS: .ASCIZ / HO VT20'S SELECTED/ 



MESDH: «ASCIZ / LINE / 



¥TBB DEC/XIl SVSfEH EXERCISER HODULE 
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mil ||| III 
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MESDHIS ,ISCIZ / DID iOf COHPLEfi 1 tRIHSrER IM WE/ 



MESDH2: «ISCIZ /SO ME 3RE DROPIMG THE LIMB/ 



HESDS: «ASCIZ / ERRORS Oi UBSELECfED LIHB/ 



MESSO: -ASCIZ / SILO a«ERFLO«»«« IfS FiTAL/ 



hesre: .asciz / a receiver error Bit MUS SEt/ 



HESBE: 

meshho: 



•&SCIZ 
.ASCIZ 



MESMMl: «SSCIZ /OOOOOO/ 



803 

804 017472 



errhr: 
errdh: 



errso: 
errre: 

ERRUS: 



.EfEii 

OF ERROR 
HESBE 

177777 

HESBE 

giiliilo 

HESBE 
HESBE 



;IM CASE THESE IS AM ODD # OF eVTES IH fHE ABOIS MESSISE 



HESSIGE "IHIERS I IERHipfOI.|^j|gO;K|HJ|Jl;|,_^^,^ 

SpOIMfS fa AS ASClZ ERROR HESSAGE 
ITERHINATQR. QIIL¥ 1 MESSAGE THIS TIHE 

I pliii 18 «ii8^£fiii'RiiI?S«iH!MssAGE 

lloiiff TO f cIrrIaGE RETURN-LINE FEED 

IPCINTS to 1ST PIRT OF 'HDMG' ERROR MESSAGE ISCIZ 

IPCIItS to lime I ASCIZ 

;|o|n|s to part of message 

iDROPIiG A LiaE HESSAGE 

wi wiHh 



A CARRIAGE RETURN-LIME FEED 



IPCINTS TO ASCIZ TEXT OF FATJIL ERROR MESSAGE 
;Tfi|s pfilCAfES THAT BO MORE MESSAGES FOLr " ■ 

SffilMTS to A CARPIAG 

IPQINTS to ASCIZ TEK 



MORE MESSAGES FOLLGH 
TURN-LjMg FEED 
THE RECEIVER ERROR MESSAGE 



,._lNTS __ 
^TERMIMAfOR 
;PCIMtS TO A CARRIAGE REIURH-LIBE FEED 
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000001 
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SEQ 0016 



MBSNMO 
MESUS 

;EiD OF MESSAGE TABLE 
.EiD 



;POIilTS TO ISCIZ FOR i OF ERRORS 

IPCIMTS TO TEXT PART OF MESSAGE 

^points TO ASCIZ FOR LINE | 

^SIGNALS END OF fESSAGE TO DECX/11 
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OOOOOOR 
000001 
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19 



SEQ 0017 



BRAKE 

br| 

BTODS - 
CDATISs 



llll 
Mil 

OOOIOOR 

ill 

01744 

iiiL 
im 

017472R 
104400 
000246R 



mi 


497* 
397 


iir 


4B9# 






470* 


498* 


554* 


m 


m 


11? 



697 
462# 



m m 



465 
465 



UUlf 

m 
m* 

431* 



Hi ill It! ill iu Hi m m 



496* 


552* 








421* 
691 


483 


640* 


690* 


699* 


445 


480* 


477 
617 


479* 
619* 


nil 


619 


684 


686 


735# 




508* 


557* 








629 
432 


631 


644 







686* 



VTBB DEC/Xll SVSTEM EXERCISER HODOLE 
S¥TBB0,P11 12-OCT-78 12:25 

FATERR 000266R 271# 481 

HRDCBt BgQ044R -•y- 

If?" If 

utr 0001 

HTSRV 0017 

sp* 

QCC 
OEC 

LOSM 



:c 

SC 
iM 
BR 

BR 
.CC 
,EC 

SN 



CC 

EC 
,SH 
4BR 
4CC 

5BR 

see 

SEC 

5SU 

6BR 

6CC 

6EC 

eSM 

7BR 

7CC 

7EC 

7SW 

!BR 

ICC 



000514R 
000454R 



limn 



000452R 
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426 
416 



SEQ 0016 



434* 
418* 

611* 



613* 
491 

612* 



639 
493 

639* 



641* 



704* 
495* 
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411* 543* 

489* 496 497 552 553 

727# 72fiS 7291 730# 731| 



I 



